;; Demonstration of character comparison functions

;; Character predicate
(display "Character predicate tests:")
(newline)
(display "(char? #\\a) => ")
(display (char? #\a))
(newline)
(display "(char? 65) => ")
(display (char? 65))
(newline)
(newline)

;; Character equality
(display "Character equality tests:")
(newline)
(display "(char=? #\\a #\\a) => ")
(display (char=? #\a #\a))
(newline)
(display "(char=? #\\a #\\b) => ")
(display (char=? #\a #\b))
(newline)
(newline)

;; Character ordering
(display "Character ordering tests:")
(newline)
(display "(char<? #\\a #\\z) => ")
(display (char<? #\a #\z))
(newline)
(display "(char>? #\\z #\\a) => ")
(display (char>? #\z #\a))
(newline)
(display "(char<=? #\\a #\\a) => ")
(display (char<=? #\a #\a))
(newline)
(display "(char>=? #\\a #\\a) => ")
(display (char>=? #\a #\a))
(newline)
(newline)

;; Working with special characters
(display "Special character tests:")
(newline)
(display "(char? #\\space) => ")
(display (char? #\space))
(newline)
(display "(char? #\\newline) => ")
(display (char? #\newline))
(newline)
(display "(char=? #\\space #\\ ) => ")
(display (char=? #\space #\ ))
(newline)